object FmMedia: TFmMedia Left = 286 Top = 339 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'FmMedia' ClientHeight = 154 ClientWidth = 361 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDefault OnHide = FormHide OnShow = FormShow DesignSize = ( 361 154) PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 8 Top = 8 Width = 345 Height = 109 Anchors = [akLeft, akTop, akRight, akBottom] BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object LblTitle: TLabel Left = 16 Top = 12 Width = 24 Height = 13 Caption = '&Title:' FocusControl = EdtTitle end object LblAlbum: TLabel Left = 16 Top = 36 Width = 33 Height = 13 Caption = '&Album:' FocusControl = EdtAlbum end object LblFormat: TLabel Left = 16 Top = 60 Width = 38 Height = 13 Caption = '&Format:' FocusControl = EdtFormat end object LblTime: TLabel Left = 184 Top = 60 Width = 26 Height = 13 Caption = 'Ti&me:' FocusControl = EdtTime end object Label1: TLabel Left = 16 Top = 84 Width = 22 Height = 13 Caption = '&Slot:' FocusControl = EdtSlotNumber end object EdtTitle: TcxDBTextEdit Left = 72 Top = 8 Width = 257 Height = 21 DataBinding.DataField = 'Title' DataBinding.DataSource = DsMedia Properties.OnChange = EdtTitleChange Style.StyleController = DM.EditStyles TabOrder = 0 end object EdtFormat: TcxDBImageComboBox Left = 72 Top = 56 Width = 89 Height = 21 DataBinding.DataField = 'FormatId' DataBinding.DataSource = DsMedia Properties.Images = FmGenrePopup.ImagesMedia Properties.Items = < item Description = 'CD' ImageIndex = 0 end item Description = 'Not CD' ImageIndex = 1 Value = 1 end> Properties.ReadOnly = False Style.LookAndFeel.NativeStyle = True Style.Shadow = False Style.StyleController = DM.EditStyles TabOrder = 2 end object EdtTime: TcxMaskEdit Left = 240 Top = 56 Width = 88 Height = 21 Properties.IgnoreMaskBlank = True Properties.EditMask = '!000:00;1;_' Properties.MaxLength = 0 Style.LookAndFeel.NativeStyle = True Style.StyleController = DM.EditStyles TabOrder = 3 Text = ' : ' end object EdtSlotNumber: TcxDBSpinEdit Left = 72 Top = 80 Width = 89 Height = 21 DataBinding.DataField = 'SlotNumber' DataBinding.DataSource = DsMedia Style.StyleController = DM.EditStyles TabOrder = 4 end object EdtAlbum: TcxDBLookupComboBox Left = 72 Top = 32 Width = 257 Height = 21 RepositoryItem = DM.AlbumLookup DataBinding.DataField = 'AlbumId' DataBinding.DataSource = DsMedia Enabled = False Properties.ListColumns = <> Style.StyleController = DM.EditStyles TabOrder = 1 end end object BtnOK: TBitBtn Left = 112 Top = 124 Width = 75 Height = 25 Anchors = [akRight, akBottom] TabOrder = 1 OnClick = BtnOKClick Kind = bkOK end object BtnCancel: TBitBtn Left = 192 Top = 124 Width = 75 Height = 25 Anchors = [akRight, akBottom] TabOrder = 2 OnClick = BtnCancelClick Kind = bkCancel end object BtnHelp: TBitBtn Left = 272 Top = 124 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Help' TabOrder = 3 OnClick = BtnHelpClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333336633 3333333333333FF3333333330000333333364463333333333333388F33333333 00003333333E66433333333333338F38F3333333000033333333E66333333333 33338FF8F3333333000033333333333333333333333338833333333300003333 3333446333333333333333FF3333333300003333333666433333333333333888 F333333300003333333E66433333333333338F38F333333300003333333E6664 3333333333338F38F3333333000033333333E6664333333333338F338F333333 0000333333333E6664333333333338F338F3333300003333344333E666433333 333F338F338F3333000033336664333E664333333388F338F338F33300003333 E66644466643333338F38FFF8338F333000033333E6666666663333338F33888 3338F3330000333333EE666666333333338FF33333383333000033333333EEEE E333333333388FFFFF8333330000333333333333333333333333388888333333 0000} NumGlyphs = 2 end object DsMedia: TDataSource DataSet = DM.CdsAlbumMedia Left = 8 Top = 120 end end